lhcd_module Module

LHCD модуль


Uses


Variables

Type Visibility Attributes Name Initial
type(Spectrum), public :: full_spectrum
type(Spectrum), public :: pos_spectr
type(Spectrum), public :: neg_spectr
real(kind=wp), public, dimension(:), allocatable :: vvj
real(kind=wp), public, dimension(:), allocatable :: vdfj
integer, public, parameter :: kpt1 = 20
integer, public, parameter :: kpt3 = 20

Subroutines

public subroutine ourlhcd2017(spectr, outpe, pe_out)

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!sav2008 pn=fn(r) pn=fn1(r,fnr) pn=fn2(r,fnr,fnrr) !sav2008 !!!!!!!read data !!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!sign of driven current in right coordinate system {dro,dteta,dfi}: !!!curdir=+1.0 for current drive in positive direction "dfi" !!!curdir=-1.0 for current drive in negative direction "dfi" !!!spectrum Nz>0 is along dfi>0 and Nz<0 is along dfi<0 !!!it is also OK if Npar is used instead of Nz, but for Btor>0, that is along dfi>0 curdir=-dble(ispectr) !!!!!!!!!!!!! begin iterations !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! find nevyazka

Read more…

Arguments

Type IntentOptional Attributes Name
type(Spectrum) :: spectr
real(kind=8), dimension(*) :: outpe
real(kind=8) :: pe_out

public subroutine init_iteration()

Arguments

None

public subroutine gridvel(v1, v2, vmax, cdel, ni1, ni2, ipt1, kpt3, vrj)

v12<v<=v2

Arguments

Type IntentOptional Attributes Name
double precision :: v1
double precision :: v2
double precision :: vmax
double precision :: cdel
integer :: ni1
integer :: ni2
integer :: ipt1
integer :: kpt3
double precision :: vrj(*)

public subroutine recalculate_f_for_a_new_mesh(ispectr)

recalculate f' for a new mesh ! if(vrj(i).gt.vvj(i0)) exit

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: ispectr

public subroutine alphas(d, u, j, kmax, g)

Arguments

Type IntentOptional Attributes Name
real :: d
real :: u
integer, intent(in) :: j
integer, intent(in) :: kmax
real :: g